Attributes Property Example

This example displays the Attributes property for Field, Relation, and TableDef objects in the Northwind database.

Sub AttributesX()

   Dim dbsNorthwind As Database
   Dim fldLoop As Field
   Dim relLoop As Relation
   Dim tdfloop As TableDef

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   With dbsNorthwind

      ' Display the attributes of a TableDef object's 
      ' fields.
      Debug.Print "Attributes of fields in " & _
         .TableDefs(0).Name & " table:"
      For Each fldLoop In .TableDefs(0).Fields
         Debug.Print "  " & fldLoop.Name & " = " & _
            fldLoop.Attributes
      Next fldLoop

      ' Display the attributes of the Northwind database's 
      ' relations.
      Debug.Print "Attributes of relations in " & _
         .Name & ":"
      For Each relLoop In .Relations
         Debug.Print "  " & relLoop.Name & " = " & _
            relLoop.Attributes
      Next relLoop

      ' Display the attributes of the Northwind database's 
      ' tables.
      Debug.Print "Attributes of tables in " & .Name & ":"
      For Each tdfloop In .TableDefs
         Debug.Print "  " & tdfloop.Name & " = " & _
            tdfloop.Attributes
      Next tdfloop

      .Close
   End With

End Sub